program programa;
procedure proc1();
    var x:integer;
begin
end
begin	
end.
